home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / EasyTools / EASYnumber < prev    next >
Encoding:
Text File  |  1996-12-13  |  2.3 KB  |  105 lines
  1. /*
  2.  
  3. $VER: EASYnumber 1.0 (15.08.95) by David De Groot
  4.  
  5. Get your 'winning' numbers with ease! ;-)
  6.  
  7. This script works with 'randomx' in your c: dir
  8.  
  9. */
  10.  
  11.  
  12.  
  13.  
  14. signal on break_c
  15. options failat 21 
  16. NL = '0a'x
  17.  
  18. bool = exists('libs:rexxreqtools.library')
  19. if bool = 0
  20.  then say "You need RexxReqTools.library"
  21. else call addlib('rexxreqtools.library',0,-30)
  22.  
  23. xcheck = exists('c:randomx')
  24. if xcheck = 0
  25.     then do
  26.      call rtezrequest("RANDOMX is not in C:.",, 
  27.                       "Sorry!","ATTENTION!!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  28.     exit 
  29.   end
  30. else 
  31.  
  32. /* let's give some intro-info */
  33.  
  34. call rtezrequest("Random numbers at large!" nl "" nl,
  35.                  "Easy and quick, every time again," nl "with" nl "EASYnumber!" nl "",,
  36.                  "Yeah, yeah, get on with it!", "Aha!",,
  37.                  'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  38.                  
  39. /* let's begin */
  40.  
  41. begin:
  42. long = rtgetlong(,"How many numbers would you like?",,,,
  43.                  'rtgl_min = 1 rtgl_max = 50 rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  44.  
  45. if rtresult == 0 
  46.  then exit
  47.  
  48. else do
  49.  say ""
  50.  
  51. do i = 0 to long -1
  52.  address command
  53.  'randomx 1 42'
  54.  
  55.  say ""
  56. end
  57.  
  58.  
  59. say "Close window when done..."
  60. say ""
  61.  
  62. call rtezrequest("Now that was nice," nl "wasn't it?",,
  63.                  "Absolutely! |_Run again|_Numbers appear mor than once!",,
  64.                  "David says:", 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  65.  
  66. if rtresult == 1
  67.  then exit
  68. end
  69.  
  70. if rtresult == 2
  71.  then signal begin
  72.  
  73.  
  74. if rtresult == 0
  75.  then call rtezrequest("Oh yeah? ;-)" nl "" nl "Well, let me tell you" nl,
  76.                        "that when numbers seem to appear more than once" nl,
  77.                        "this is due to the fact that they were choosen" nl,
  78.                        "RANDOMLY." nl "",,
  79.                        "_Run again!|_Quit", "David says:",,
  80.                        'rtez_flags=ezreqf_centertext rt_reqpos=reqpos_centerscr')
  81.  
  82.  
  83.  
  84.  
  85. if rtresult == 1
  86.  then signal begin
  87. else exit
  88.  
  89. break_c:       
  90. call rtezrequest(" You entered a break." nl, 
  91.                  "This quits EASYnumber...!",,
  92.                  " Right! ", "Heho!", 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  93.  
  94. say ""
  95.  
  96. exit
  97.  
  98.  
  99.  
  100.  
  101.  
  102. /* Futureplans: EVAPORATE! ;-) */
  103.  
  104.  
  105.